home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ IE Outlook Express 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  3.4 KB  |  127 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Outlook Express"
  5. "NAME"="Advanced Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.11"
  8. "TEXT 1"="Display Splash Screen"
  9. "TEXT 2"="Display "Tools" -> "New Hotmail account" inside menu"
  10. "TEXT 3"="Enable colorful message backgrounds"
  11. "TEXT 4"="Enable creation of new accounts (email, news etc.)"
  12. "TEXT 5"="Enable HTTP mail accounts support"
  13. "DESCRIPTION 1"="Miscellaneous settings for Outlook Express."
  14. "DESCRIPTION 2"="To use option #3: Activate it, then restart Outlook Express, create a new message and press CTRL+SHIFT plus the "Z" key to cycle throught the backgrounds."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to Chris [CGMT@flashmail.com] for the "non-NT but not disabled" bug notice."
  19. "COMMENT 2"="Thanks to Guy for the "no-go OE5" bug notice."
  20. "COMMENT 3"="HTTP Mail option added by Neil R. Turner [totalxs@hotmail.com] after some inspiration from SΘbastien Maurice."
  21.  
  22. sValPath=""
  23. sP1="HKCU\Software\Microsoft\Outlook Express\"
  24. sP2="HKCU\Identities\Last User ID"
  25. 'sPath="HKCU\Software\Microsoft\Outlook Express\"
  26. sNOS="NoSplash"
  27. sHOT="Disable Hotmail"
  28.  
  29. sPath2="HKCU\Software\Microsoft\Internet Mail and News\"
  30. sCOL="ColorCycle"
  31.  
  32. sV4="HKLM\SOFTWARE\Microsoft\Outlook Express\" 'DW (1 = enable restriction)
  33.  
  34. Sub Plugin_Initialize 
  35.  'OK, let's have a look if we are running IE5...
  36.  s=RegReadValue(sP2)
  37.  if IsEmpty(s)=false then
  38.     'OK - we have a value - check if we can find OE
  39.     sValPath="HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\"
  40.     If RegPathExists(sValPath) then
  41.        'OE5 !
  42.        sValPath=sValPath '& sValue
  43.     else
  44.        sValPath=sP1 '& sValue
  45.     end if 
  46.  else
  47.     sValPath=sP1 '& sValue
  48.  end if
  49.  
  50.  
  51.  i=RegReadValue(sValPath & sNOS)
  52.  if i=0 or IsEmpty(i) then
  53.     Call SetUIElement(1,True)
  54.  end if
  55.  
  56.  i=RegReadValue(sValPath & sHOT)
  57.  if i=0 or IsEmpty(i) then
  58.     Call SetUIElement(2,True)
  59.  end if
  60.  
  61.  i=RegReadValue(sPath2 & sCOL)
  62.  if i=1 then
  63.     Call SetUIElement(3,True)
  64.  end if
  65.  
  66.  i=RegReadValue(sV4 & "No Modify Accts")
  67.  if i<>1 then
  68.     Call SetUIElement(4,True)
  69.  end if
  70.  
  71.  i=RegReadValue(sV4 & "HTTP Mail Enabled")
  72.  if i=1 then
  73.     Call SetUIElement(5,True)
  74.  end if
  75.  
  76. ' else
  77. '  Disable
  78. ' end if
  79. End Sub
  80.  
  81. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  82.  i=GetUIElement(1)
  83.  if i=true then
  84.     Call RegWriteValue(sValPath & sNOS,0,2)
  85.  else
  86.     Call RegWriteValue(sValPath & sNOS,1,2)
  87.  end if
  88.  
  89.  i=GetUIElement(2)
  90.  if i=true then
  91.     s=RegReadValue(sValPath & sHOT)
  92.     if IsEmpty(s)=false then 
  93.        'entry exists -> delete it!
  94.        Call RegDeleteValue(sValPath & sHOT)
  95.     end if    
  96.     'Call RegWriteValue(sValPath & sHOT,0,2)
  97.  else
  98.     Call RegWriteValue(sValPath & sHOT,1,2)
  99.  end if
  100.  
  101.  
  102.  i=GetUIElement(3)
  103.  if i=true then
  104.     Call RegWriteValue(sPath2 & sCOL,1,1)
  105.  else
  106.     Call RegWriteValue(sPath2 & sCOL,0,1)
  107.  end if
  108.  
  109.  
  110.  i=GetUIElement(4)
  111.  if i=true then
  112.     If RegValueExists(sV4 & "No Modify Accts") then Call RegDeleteValue(sV4 & "No Modify Accts")
  113.  else
  114.     Call RegWriteValue(sV4 & "No Modify Accts",1,2)
  115.  end if
  116.  
  117.  i=GetUIElement(5)
  118.  if i=true then
  119.     If RegValueExists(sV4 & "HTTP Mail Enabled") then Call RegDeleteValue(sV4 & "HTTP Mail Enabled")
  120.  else
  121.     Call RegWriteValue(sV4 & "HTTP Mail Enabled",1,2)
  122.  end if
  123. End Sub
  124.  
  125. Sub Plugin_Terminate 
  126. End Sub
  127.